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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS URESERY ED. 
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® 

® 

® 

® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR ANY. OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. » 
* 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. : 
® 

® 
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® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PETTITT iii iii ii tii ii titi itiiiitiiiiiiiit: 
SUBROUTINE DR11W (LUN) 
AUTHOR BRIAN PORTER CREATION DATE 17-SEP-1979 
| 


oe 
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Functional description: 
This module displays entries made for the driiw. 


Modified by: 

v03-005 SARO218 Sharon A. Reynolds, 28-Mar-1984 
Changed the call to UCBSL _OWNUIC to ORBSL_OWNER. 

vO3-004 SAR0142 Sharon A. Reynolds, 4-0ct-1983 
= Removes brief/cryptic support. 

v03-003 SAR0070 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 

v03-002 BP0007 Brian Porter, 20-AUG-1982 
Minor edit. 

v03-001 BP0006 Brian Porter, 09-MAR-1982 


Corrected output conversion error bug. 
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INCLUDE ‘SRCS$:DEVERR.FOR /NOLIST’ 


BYTE LUN 

INTEGER®4 FIELD 
INTEGER®4 DRCSR 
INTEGER®4 DREIR 
INTEGER®4 DRIDR 

NTEGER®4 DRBA 

NTEGER®G DRWC 

NTEGER®4 UBA_REGS(4) 

ntegers4 compress4 
Logical*1 diagnostic_mode 
EQUIVALENCE (DRCSR, EMBSL_DV_REGSAV(2)) 
EQUIVALENCE (DREIR, EMBSL_DV-REGSAV(3)) 
EQUIVALENCE (DRIDR, EMBSL-DV-REGSAV(4)) 
EQUIVALENCE (DRBA, EMBSL_BV_REGSAV(5)) 
EQUIVALENCE (DRWC, EMBSL~DV-REGSAV(6)) 
EQUIVALENCE CUBA REGS prest DV REGSAV(7)) 
EQUIVALENCE (V3DRCSR(13),VOBRETR(13)) 
PARAMETER TIMEOUT = 96 
CHARACTER*7 V1IDRCSR(0:0) 

DATA VIDRCSR(O) /*GO BIT#'/ 
CHARACTER*®17 — V2DRCSR(6:8) 

DATA  V2DRCSR(6) 7" INTERRUPT ENABLE*'/ 
DATA _—- V2DRCSR(7) /*CONTROLLER READY*'/ 
DATA  V2DRCSR(B) /"DMA CYCLE®'/ 
CHARACTER®20 V3DRCSR(13:15) 

DATA V3DRCSR(13) /*USER ATTENTION®'/ 
DATA  V3DRCSR(14) /"NON-EXISTENT MEMORY®'/ 
DATA  V3DRCSR(15) /"ERROR®'/ 
CHARACTER*14 —- VIDREIR(0:0) 

DATA VIDREIR(O) 7*READING ‘EIR '®'/ 
CHARACTER®24 Y2DREIR(B:15) 

ATA V2DREIR(B) /*DMA BURST MODE SELECTED®'/ 
DATA  V2DREIR(9) /"DMA BURST USER TIMEQUT#'/ 
DATA  V2DREIR(10) /"MEMORY PARITY ERROR®'/ 
DATA  V2DREIR(11) /*AC LO®' 

DATA  V2DREIR(12) /*MULTI-CYCLE REQUEST®'/ 
CHARACTER®1 USER STATUS (0:2) 

DATA  USER_STATUS(O) /*A'/ 

DATA —-USERTSTATUS(1) /°B'/ 

DATA ——USERTSTATUS(2) /*C*/ 
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Page 3) 
| 

CALL FRCTOF (LUN) | 

call dhead? (Llun,"UBA DR11W") | 

diagnostic_mode = .false. | 

if (LibSextzv(12,1,drcsr) .eq. 1) diagnostic_mode = .true. 

CALL LINCHK (LUN,2) 


WRITE(LUN,10) DRCSR 
10 FORMAT(/* *,t8,*DRCSR',124,28.4) 


if (.not. diagnostic_mode) then 
CALL OUTPUT (LUN,DRCSR,VIDRCSR,0,0,0,'0") 
FIELD = LIBSEXTZV(1,3,DRCSR) 


SSBLSAPAS AS SaNoore 


CGOOCOCOCOCOOCOCOOOOOCOoOoOO 


SZZRBS2 


ono 


CALL LINCHK (LUN,1) 


WRITECLUN 25) FIELD 
25 format(" °,t40,"°USER FUNCTION = ‘,i<compress4 (field)>,'.") 


DO 35,1 = 4,5 

FIELD = LIBSEXTZV(1I,1,DRCSR) 
IF (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 
WRITE(LUN,30) I+12 


32 


Sesseascsse 


30 poregts” #t40, "EXTENDED BUS ADDRESS BIT ‘,i<compress4 (i+12)>,'.') 
10 
310 35 CONTINUE 


CALL OUTPUT (LUN,DRCSR,V2DRCSR,6,6,8,'0") 

DO 45,1 = 9,11 

FIELD = LIBSEXTZV(1,1,DRCSR) 

IF (FIELD .NE. 0) THEN 
| 
| 
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CALL LINCHK (LUN, 1) 
WRITE(LUN,40) USER STATUS(FIELD) J 


40 forages -t40,°USER STATUS ',a1,' (BIT *,i<compress4 (i)>,".) SET") 
45 CONTINUE 
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CALL OUTPUT (LUN,DRCSR,VSDRCSR,13,13,15,°0") 
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0 : else , 
¢ CALL LINCHK (LUN,1) 3 
WRITE CL § 
.¢: 2 YN 13 th0, "DIAGNOSTIC MODE") 9 
8 engit. 2 
5 8 CALL LINCHK (LUN,1) x 
0 WRITE (LUN, 50) DREIR 5¢ 
9 1 50 FORMAT(* °,18,"DREIR',124,28.4) 2 
9 § if (.not. diagnostic_mode) then bee 
8 5 CALL OUTPUT (LUN,DREIR,VIDREIR,0,0,0,'0") Bat 
O37 CALL OUTPUT (LUN,DREIR,V2DREIR,8,8,15,°0") 08] 
0348 endif b2 
0349 51 
0330 CALL LINCHK (LUN,1) 031 
O35¢ WRITE (LUN, 55). DRIDR 2} 
O32? 55 FORMAT(' °,78,"DRIDR’,124,28.4) $31 
0329 CALL LINCHK (LUN,1) Ba! 
0357 WRITECLUN,60) D 05 
0338 60 FORMAT (* OTB, DRBAY, T24,28.4) Ba 
8300 if (.not. diagnostic_mode) then 03 
036¢ CALL CALC_MAP (LUN,4,DRCSR,DRBA) 033 
0363 endif 2 
0369 CALL LINCHK (LUN,1) 034 
O3e9 WRITE (LUN, 75) DRWC 23 
0368 75 MAT(' °,18,"DRWC’,124,28.4) 33 
$390 if ¢ 53 
0371 1 emb$w_hd_entry .ne. 96 33 
037¢ 1 .or. 5 
7 1 emb$w_hd_entry .ne. 98 2 
1) then 33 
16 IF (IANDCEMBSW_DV_FUNC,'0040'X) .£Q. 0) THEN rp 
318 if (uba_regs(1) .ne. 0) then 3 
340 call uba_datapath (lun,uba_regs(1),uba_regs(2)) 54 
1 endif ry 
5 call calc_map2 (4,drcsr,drba, field) 2 
5 call uba_mapping (lun, field,uba_regs(3)) ry 
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3 call 

94 endif 

95 ENDIF 
endif 2 
call Linchk (lun,1) 
write(tun,80) 

80 format(’ *,;:) 


if Cemb$Sw_hd_entry .ne. 98) then 
call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
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call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 


call orb$l_owner (Lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$w_errcnt (lun,emb$w_dv_errcnt) 
if Cemb$w_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,80) 

call drilwiqio (lun,emb$w_dv_ func) 
call irp$Sw_bcnt (Lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 
call irp$q_iosb (lun,emb$l_dv_iosb1) 
endif 
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RETURN 
END 
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PROGRAM SECTIONS 
Name 


Q SCODE 

1 SPDATA 

¢ SLOCAL 
EMB 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 DR11W 


VARIABLES 
Address Type Name 
-0000010B L*1 DIAGNOSTIC_MODE 
RCSR 


L D 
ge I*2 EMBSW-DV-BCNT 
MBSW CNT 


Ie V 
-Q000001A I* “DV7STS 
I*2 EMBSW"HD"ENTRY 


mein E 
-000001 I*4 FIELD” ~ 
AP-000000048 L*1 LUN 


ARRAYS 
Addivess Type Name 


EMB 
EMBSL_DV_REGSAV 
EMBSQ" HD" TIME 


VSDRCSR 


$ep-1984 VAX-11 
WBesep-1986 00:18:49 vAKedT 
Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL NOEXE RD WRT LONG 


Address Type Name 


00000066 1*4 DRBA 

-0000005E I*4 DREIR 

~9000008h 1s4 DpRUC 

-00000010 Lei EMBS$B_DV_ERTCNT 
-0000003E L*1l EMBSB~DV“NAMLNG 
=2000001D Le] ENBSB_DV-TYPE 
-00000012 I*4 EMBSL“DV710SB1 
- 900002 1*4 EMBSL-DV“MEDIA 
-0000002E I*4 EMBSLDV“OPCNT 
-QO00001E I*4 EMBSLDV“ROPID 
-0000003F CHAR EMBST~DV"NAME 
-900000¢2 Is EMBSW-DV-BOFF 
-0000003C I*2 EMBSWIDV“FUNC 
-0000002A I*2 EMBSWIDV"UNIT 
“QOQQ000E I? EMBSW_HDERRSEO 
2-0000011 I 


Bytes Dimensions 


51 (0:511) 
42 te 
(2) 

1 (4) 
(0:2) 
(0:0) 

st (6:8) 

193 (8:83) 

60 (13:15) 
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3. 
DISKSVMSMASTER: CERF .SRCIDR11W.FOR: 1 
LABELS 


Address Label Address Label Address Label Address Label Address Label Address’ Label 
1-00000038 10° 1-000000C2 15° 1-0000004B8 25° 1-0000006C 30° we 33 1=00000096 40° 
et 45 1-000000D9 50° 1-000000E8 55° 1-000000FD 60° 1=0000010E 75° 1-0000011F 80° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
CALC_MAP ALC_MAP2 I1*4 COMPRESS4 DHEAD1 DR11W_Q10 FRCTOF 
IRPSC_PID Absa 10S8 IRP$W_BCNT IRPS$W_BOFF I*4 LIBSERTZV LINCHK 
ORBSL_OWNER UTPUT UBA_DATAPATH BA_MAPPING UCBSB_ERTCNT UCBSB_ERTMAX 


0 UBA_M 
UCBSL_CHAR UCBSL_OPCNT UCBSW_ERRCNT UCBSW_STS 
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subroutine drilwiqio (lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /wolist' 


byte lun 
integer*2 emb$w_dv_ func 
integer*4 giocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,11) = Zloc(io$_writeptin> 
qiocode(1,12) = Zloc(io$_readpblk) 
qiocode(1,26) = %loc(io$_setchar) 
qiocode(1,27) = %loc(io$_sensechar) 
qiocode(1,32) = Zloc(io$_writelblk) 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,39) = Zloc(io$_sensemode) 
qiocode(1,48) = Zloc(io$_writevblk) 
qiocode(1,49) = Zloc(io$_readvblk) 
do 10,i = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
qiocode(1,i) = Zloc(qio_string) 
endif 

seattue 


call irp$w_func (lun,emb$w_dv_ func, 
1 qiocode(0, LibSextzv(0,6,emb$w_dv_func))) 


return 
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0321 end 


PROGRAM SECTIONS 
Name 


Q1OCOMMON 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-06000000 


VARIABLES 
Address Type 
ne ~poopoonse It 


= 
BosouaseAr eS 
228 

55 


CNVNOO 9-2 
o 


Name 
DR11W_Q10 


Name 
EMBSW PY FUNC 


2 
CHAR 10$_ABORT 


10$"ACPCONTROL 
10$~CLEAN 
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t 4 
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Bytes 
159 


sit 


1962 


Attributes 


ifeseo-1984 90:18:49 


SHR EXE RD NOWRT LONG 
SHR NOEXE RD NOWRT LONG 
NOSHR NOEXE RD WRT LONG 
SHR NOEXE RD WRT LONG 


Address Type Name 


-00000200 
-0000054D 
-00000483 
mes ss its 3 
-00000 H 
-0000006 

-Q00000A9 


ma< 
<-mPpo 
nomyem 
-4-4°-un 
mma 
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“READTRACKD 
ADWTHBUF 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
d 
4 
4 
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68 CHAR 10$_WRITEBUFNCRC 
VE4 CHAR 1O$_WRITECHECKH 
133 CHAR LOS _“WRITEHEAD 
47 CHAR 10S"WRITEMARK 
GA CHAR 10$_WRITEPBLK 
V7E CHAR LOS_URITETRACKD 
CHAR 10$_WRI TEWTHBUF 
AP @ uel LUN 


ARRAYS 
Address Type Name 
2-00000000 I*4 QIOCODE 


LABELS 
Address Label 
et 10 


Type Name Type Name 
COMMAND QUALIFIERS 


/DEBUGs (NOS YMBOL § - TRACEBACK) 


COMPILATION STATISTICS 


Run Time: 5.89 seconds 
Elapsed Time: 17.08 seconds 
Page Faults: 45 

Dynamic Memory: 00 pages 


FUNCTIONS AND SUBROUTINES REFERENCED 


IRP$W_FUNC I*4 LIBSEXTZV 


STANDARD=(NOSYNTAX,,NOSOURCE_ FORM) 
/SHOW=(NOPREPROCE SSOR,NOINCLODE , MAP) 
/F77 /NOG_FLOATING /14 /OPTIMIZ 


i: 


(0:1, 0:63) 


Bytes Dimensions 
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